COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "VIDTST"
C00004 ENDMK
C⊗;
BEGIN "VIDTST"
REQUIRE "VIXNIC.SAI[VIS,HPM]" SOURCE_FILE;

   BEGIN
   INTEGER ARRAY P[0:PFLDIM("OBS5.O[VIM,HPM]")];
   INTEGER B,I;   STRING IS;   REAL XL,XH,YL,YH;

   GETPFL("OBS5.O[VIM,HPM]",P[0]);
   DDINIT;
   SCREEN(0,0,1,1);

   WHILE TRUE DO
      BEGIN
      DRKEN; RECTAN(0,0,1,1);
      OUTSTR("POS Y:"); YL←REALSCAN(IS←INCHWL,B); YH←REALSCAN(IS,B);
      OUTSTR("POS X:"); XL←REALSCAN(IS←INCHWL,B); XH←REALSCAN(IS,B);
      FOR I←0 STEP 1 UNTIL 4 DO
         BEGIN
         DRKEN; RECTAN(XL,YL,XH,YH);
         VID(XL,YL,XH,YH,P[0],1 ASH I);
         DPYUP(SYNMAP(3+I)); DPYUP(SYNMAP(3+I)); DPYUP(SYNMAP(3+I));
         END;
       END;

    END;
END;